Option Explicit
Sub H_Sample014()
    'ϥH_Sample011ϯäR
    Dim mySht    As Worksheet
    Dim myCht    As Chart
    Dim myChtobj As ChartObject
    Dim myRng    As Range
    Set mySht = Worksheets(1)		'ϯäRsb
    Set myRng = mySht.PivotTables(1).TableRange1	'wϯäR
    'ϯäRs@
    Set myCht = Charts.Add
    With myCht
        .ChartType = xlColumnClustered
        .SetSourceData Source:=myRng.Cells(1)
        .HasPivotFields = False
        .Location Where:=xlLocationAsObject, Name:=mySht.Name
    End With
    With mySht.Shapes(mySht.Shapes.Count)
        .Top = myRng.Cells(myRng.Cells.Count).Top + 30
        .Left = 10
    End With
    mySht.Cells(1).Activate
    Set myRng = Nothing
    Set mySht = Nothing						'
    Set myCht = Nothing
    Set myChtobj = Nothing
End Sub
